***************** Replication of Franchino, Fabio, and Camilla Mariotto. “Bargaining Outcomes and Success in EU Economic Governance Reforms”. Political Science Research and Methods.

* Step 2 to reproduce Figure A6

* Density plot with crosschecks
* pause on
version 16
use betasCC.dta, clear

sum	distSQ
centile distSQ, centile(2.5 97.5)
kdensity distSQ, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to the reference point", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.0820819, lw(thin)) xline(-.1220637, lw(thin) lp(dash)) xline(-.04188, lw(thin) lp(dash)) saving(distSQCC,replace)
* pause

sum	distCOM
centile distCOM, centile(2.5 97.5)
kdensity distCOM, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to Commission position", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.1334745, lw(thin)) xline(-.1823581, lw(thin) lp(dash)) xline(-.0834087, lw(thin) lp(dash)) saving(distCOMCC,replace)
* pause

sum	distPRES
centile distPRES, centile(2.5 97.5)
kdensity distPRES, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to Council President position", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.0524146, lw(thin)) xline(-.1203024, lw(thin) lp(dash)) xline(.0145171, lw(thin) lp(dash)) saving(distPRESCC,replace)
* pause

sum	distEP
centile distEP, centile(2.5 97.5)
kdensity distEP, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to Parliament position, excluding OLP", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.0782427, lw(thin)) xline(-.1554846, lw(thin) lp(dash)) xline(.0007886, lw(thin) lp(dash)) saving(distEPCC,replace)
* pause

sum	ep_rule_distEP_2
centile ep_rule_distEP_2, centile(2.5 97.5)
kdensity ep_rule_distEP_2, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to Parliament position, under OLP", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.5162522, lw(thin)) xline(-.6231578, lw(thin) lp(dash)) xline(-.4171536, lw(thin) lp(dash)) saving(ep_rule_distEP_2CC,replace)
* pause

sum	extreme
centile extreme, centile(2.5 97.5)
kdensity extreme, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Extremeness of position", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.4882674, lw(thin)) xline(-.6021291, lw(thin) lp(dash)) xline(-.369344, lw(thin) lp(dash)) saving(extremeCC,replace)
* pause

sum	v_power
centile v_power, centile(2.5 97.5)
kdensity v_power, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Voting power", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.6479244, lw(thin)) xline(-1.130786, lw(thin) lp(dash)) xline(-.1867156, lw(thin) lp(dash)) saving(v_powerCC,replace)
* pause

sum	salience_r
centile salience_r, centile(2.5 97.5)
kdensity salience_r, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Issue salience", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(.1922087, lw(thin)) xline(-.0843732, lw(thin) lp(dash)) xline(.4777197, lw(thin) lp(dash)) saving(salience_rCC,replace)
* pause

gr combine distSQCC.gph distCOMCC.gph distPRESCC.gph distEPCC.gph ep_rule_distEP_2CC.gph extremeCC.gph v_powerCC.gph salience_rCC.gph , graphregion(fcolor(white)) cols(2) saving(figure_A7,replace)

